home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / database / dbolio.lib < prev    next >
Text File  |  1991-01-25  |  15KB  |  325 lines
  1. @Marker(Library, DBOLIO, Press, Dover, Postscript)
  2.  
  3.  
  4. @Modify(Chapter,TitleForm 
  5. {@Begin(Hd1A, Below 0.8 in)@Skip(0.8 in)@*Chapter @Parm(Numbered)@*@Skip(0.3 in)@*@Parm(Title)@End(Hd1A)},
  6.     ContentsForm
  7. {@Begin(Tc1)@Rfstr(@Parm(Page))@Parm(Referenced)@.@ @Parm(Title)@End(Tc1)},
  8.       Numbered [@1],IncrementedBy Use,Referenced [@1],Announced)
  9. @Modify(Appendix,TitleEnv HD1,ContentsEnv tc1,Numbered [@A.],
  10.      ContentsForm "@Tc1(Appendix @Parm(Referenced)@.@ @Rfstr(@Parm(Page))@parm(Title))",
  11.      TitleForm "@Hd1(@=Appendix @Parm(Referenced)@*@=@Parm(Title))",
  12.       IncrementedBy,Referenced [@A],Announced) @Comment{Alias Chapter}
  13. @Define(F, Facecode F)
  14. @Define(Sail, Facecode U)
  15. @Define(Arrow, Facecode N)
  16. @Commandstring(Minussign = "")
  17. @Commandstring(Centerdot = "@Begin(W, script +0.4 quad).@End(W)")
  18. @Commandstring(Tilde = "@Begin(W, script +0.4 quad)~@End(W)")
  19. @Commandstring(Underscore = "_")
  20. @Commandstring(Bq = "@;`")
  21. @Form(Complex = "@f[#C(@Parm(R) @Parm(I))]")
  22. @Textform(Altmode = "<altmode>")
  23. @Define(DenseDescription = Description, Spread .3)
  24. @Define(Defenvironment = Text, Need 4, Nofill, Justification Off, Break,
  25.         Above 2, Below 2, Spread 0.5)
  26. @Define(Defbody = Text, Leftmargin +.6in, Indent 0, Spread 0.5, Break)
  27. @Define(Undefbody = Text, Nofill, Justification Off, Leftmargin -.6in,
  28.         Above 0, Below 0, Group, Break)
  29. @Define(Lispenvironment = Verbatim, Group, Leftmargin +.3in, Above .5, Below .5)
  30. @Commandstring(Nopara = "@Begin(Text, Continue Force)@End(Text)")
  31. @Commandstring(Optional = "@f[&optional]")
  32. @Commandstring(Rest = "@f[&rest]")
  33. @Commandstring(Key = "@f[&key]")
  34. @Commandstring(allowotherkeys = "@f[&allow-other-keys]")
  35. @Commandstring(Aux = "@f[&aux]")
  36. @Commandstring(Body = "@f[&body]")
  37. @Commandstring(Whole = "@f[&whole]")
  38. @Commandstring(Special = "@f[&special]")
  39. @Commandstring(Local = "@f[&local]")
  40. @Textform(Mopt = "@r{[}@Parm(Text)@r{]}")
  41. @Textform(Mgroup = "@r[{]@Parm(Text)@r[}]")
  42. @Textform(Mstar = "@r[{]@Parm(Text)@r[}*]")
  43. @Textform(Mplus = "@r[{]@Parm(Text)@r[}@+[+]]")
  44. @Commandstring(Mor = "@r[|]")
  45. @Commandstring(Lisp = "@Begin(Lispenvironment)@~")
  46. @Commandstring(Endlisp = "@End(Lispenvironment)")
  47. @Commandstring(Lispx = "@Begin(Text, Indent 0, Above .5)For example:@End(Text)@Lisp")
  48. @Comment{
  49.  @Commandstring(EQ = "@Arrow[J]")
  50.  @Commandstring(EV = "@Arrow[A]")
  51.  @Commandstring(EX = "@Arrow[G]")
  52. }
  53.  @Commandstring(EQ = "@f[<=>]")
  54.  @Commandstring(EV = "@f[=>]")
  55.  @Commandstring(EX = "@f[==>]")
  56. @Commandstring(lbracket = "@f{[}")
  57. @Commandstring(rbracket = "@f{]}")
  58. @Commandstring(lbrace = "@f[{]")
  59. @Commandstring(rbrace = "@f[}]")
  60. @define(subi = i)
  61. @define(subr = r)
  62. @define(superi = i)
  63. @define(supersail = sail)
  64. @define(superg = g)
  65. @commandstring(superminussign = "@minussign@;")
  66. @commandstring(supercenterdot = "@centerdot@;")
  67. @Commandstring(false = "@f[nil]")
  68. @Commandstring(nil = "@f[nil]")
  69. @Commandstring(empty = "@f[()]")
  70. @Commandstring(true = "@f[t]")
  71. @Commandstring(xlisp = "@r[L@c[isp]]")
  72. @Commandstring(clisp = "@r[C@c[ommon]] @xlisp")
  73. @Commandstring(lmlisp = "@PossiblyIndexedRef(K <ZetaLisp>,
  74.         E <@r[Z@c[eta]@xlisp]>, F <@r[Z@c[eta]@xlisp]>)")
  75. @Commandstring(newlisp = "@PossiblyIndexedRef(K <NIL>,
  76.         E <@r[N@c[il]]>, F <@r[N@c[il] (New Implementation of @xlisp]>)")
  77. @Commandstring(slisp = "@PossiblyIndexedRef(K <Spice LISP>,
  78.         E <@r[S@c[pice]] @xlisp>, F <@r[S@c[pice]] @xlisp>)")
  79. @Commandstring(lisp15 = "@PossiblyIndexedRef(K <Lisp 1.5>,
  80.         E <@xlisp @r[1.5]>, F <@xlisp @r[1.5]>)")
  81. @Commandstring(maclisp = "@PossiblyIndexedRef(K <MacLISP>,
  82.         E <@r[M@c[ac]]@xlisp>, F <@r[M@c[ac]]@xlisp>)")
  83. @Commandstring(franzlisp = "@PossiblyIndexedRef(K <Franz LISP>,
  84.         E <@r[F@c[ranz]] @xlisp>, F <@r[F@c[ranz]] @xlisp>)")
  85. @Commandstring(interlisp = "@PossiblyIndexedRef(K <InterLISP>,
  86.         E <@r[I@c[nter]]@xlisp>, F <@r[I@c[nter]]@xlisp>)")
  87. @Commandstring(stdlisp = "@PossiblyIndexedRef(K <Standard LISP>,
  88.         E <@r[S@c[tandard]] @xlisp>, F <@r[S@c[tandard]] @xlisp>)")
  89. @Commandstring(psl = "@PossiblyIndexedRef(K <Portable Standard LISP>,
  90.         E <@r[P@c[ortable] S@c[tandard]] @xlisp>, F <@r[P@c[ortable] S@c[tandard]] @xlisp>)")
  91. @Commandstring(s1lisp = "@PossiblyIndexedRef(K <S-1 Lisp>,
  92.         E <@r[S-1] @xlisp>, F <@r[S-1] @xlisp>)")
  93. @Commandstring(scheme = "@PossiblyIndexedRef(K <scheme>,
  94.         E <@r[S@c[cheme]]>, F <@r[S@c[cheme]]>)")
  95. @Commandstring(fortran = "@PossiblyIndexedRef(K <Fortran>,
  96.         E <@c[fortran]>, F <@c[fortran]>)")
  97. @Commandstring(algol = "@PossiblyIndexedRef(K <Algol>,
  98.         E <@c[algol]>, F <@c[algol]>)")
  99. @Commandstring(pascal = "@PossiblyIndexedRef(K <Pascal>,
  100.         E <@c[pascal]>, F <@c[pascal]>)")
  101. @Commandstring(ada = "@PossiblyIndexedRef(K <ADA>,
  102.         E <@c[ada]>, F <@c[ada]>)")
  103. @Commandstring(apl = "@PossiblyIndexedRef(K <APL>,
  104.         E <@c[apl]>, F <@c[apl]>)")
  105. @Commandstring(pl1 = "@PossiblyIndexedRef(K <PL/I>,
  106.         E <@c[pl/i]>, F <@c[pl/i]>)")
  107. @Commandstring(clanguage = "@PossiblyIndexedRef(K <C>,
  108.         E <@c[c]>, F <@c[c] language>)")
  109. @Define(Smallitemize=Itemize, Spread 0.5, Above 0.5, Below 0.5)
  110.  
  111. @Marker(Library, DBOLIO, File)
  112.  
  113.  
  114. @Style(Justification Off)
  115. @Style(Linewidth 7.2 Inches)
  116. @Style(Indentation 0)
  117. @Modify(Chapter,TitleForm 
  118. {@Begin(Hd1A, Below 0.8 in)@Skip(0.8 in)@*Chapter @Parm(Numbered)@*@Skip(0.3 in)@*@Parm(Title)@End(Hd1A)},
  119.     ContentsForm
  120. {@Begin(Tc1)@Rfstr(@Parm(Page))@Parm(Referenced)@.@ @Parm(Title)@End(Tc1)},
  121.       Numbered [@1],IncrementedBy Use,Referenced [@1],Announced)
  122. @Modify(Appendix,TitleEnv HD1,ContentsEnv tc1,Numbered [@A.],
  123.      ContentsForm "@Tc1(Appendix @Parm(Referenced)@.@ @Rfstr(@Parm(Page))@parm(Title))",
  124.      TitleForm "@Hd1(@=Appendix @Parm(Referenced)@*@=@Parm(Title))",
  125.       IncrementedBy,Referenced [@A],Announced) @Comment{Alias Chapter}
  126. @Define(F, Capitalized)
  127. @Define(A, Initialize "[APL]")
  128. @Define(Sail = R)
  129. @Define(B = R)
  130. @Commandstring(Minussign = "-")
  131. @Commandstring(Tilde = "~")
  132. @Commandstring(Centerdot = ".")
  133. @Commandstring(Underscore = "_")
  134. @Commandstring(Bq = "@;`")
  135. @Form(Complex = "@f[#C(@Parm(R) @Parm(I))]")
  136. @Textform(Altmode = "$")
  137. @Define(DenseDescription = Description, Spread 0)
  138. @Define(Defenvironment = Text, Need 4, Nofill, Justification Off, Break,
  139.         Leftmargin +12, Indent -12, Above 2, Below 2, Spread 0.5)
  140. @Define(Defbody = Text, Leftmargin -6in, Indent 0, Spread 0.5, Break)
  141. @Define(Undefbody = Text, Justification Off, Leftmargin +6, Indent -12,
  142.         Above 0, Below 0, Group, Break)
  143. @Define(Lispenvironment = Verbatim, Group, Leftmargin +.5in, Above 1, Below 1)
  144. @Commandstring(Nopara = "@Begin(Text, Continue Force)@End(Text)")
  145. @Commandstring(Optional = "@f[&optional]")
  146. @Commandstring(Rest = "@f[&rest]")
  147. @Commandstring(Key = "@f[&key]")
  148. @Commandstring(allowotherkeys = "@f[&allow-other-keys]")
  149. @Commandstring(Aux = "@f[&aux]")
  150. @Commandstring(Body = "@f[&body]")
  151. @Commandstring(Whole = "@f[&whole]")
  152. @Commandstring(Special = "@f[&special]")
  153. @Commandstring(Local = "@f[&local]")
  154. @Textform(Mopt = "@r{[}@Parm(Text)@r{]}")
  155. @Textform(Mgroup = "@r[{]@Parm(Text)@r[}]")
  156. @Textform(Mstar = "@r[{]@Parm(Text)@r[}*]")
  157. @Textform(Mplus = "@r[{]@Parm(Text)@r[}@+[+]]")
  158. @Commandstring(Mor = "@r[|]")
  159. @Commandstring(Lisp = "@Begin(Lispenvironment)@~")
  160. @Commandstring(Endlisp = "@End(Lispenvironment)")
  161. @Commandstring(Lispx = "@Begin(Text, Indent 0, Above 0)For example:@End(Text)@Lisp")
  162. @Commandstring(EQ = "==")
  163. @Commandstring(EV = "->")
  164. @Commandstring(EX = "<=>")
  165. @Commandstring(lbracket = "@f{[}")
  166. @Commandstring(rbracket = "@f{]}")
  167. @Commandstring(lbrace = "@f[{]")
  168. @Commandstring(rbrace = "@f[}]")
  169. @define(subi = i)
  170. @define(subr = r)
  171. @define(superi = i)
  172. @define(supersail = sail)
  173. @define(superg = g)
  174. @commandstring(superminussign = "@minussign@;")
  175. @commandstring(supercenterdot = "@centerdot@;")
  176. @Commandstring(false = "@f[nil]")
  177. @Commandstring(nil = "@f[nil]")
  178. @Commandstring(empty = "@f[()]")
  179. @Commandstring(true = "@f[t]")
  180. @Commandstring(xlisp = "@r[L@c[isp]]")
  181. @Commandstring(clisp = "@r[C@c[ommon]] @xlisp")
  182. @Commandstring(lmlisp = "@PossiblyIndexedRef(K <ZetaLisp>,
  183.         E <@r[Z@c[eta]@xlisp]>, F <@r[Z@c[eta]@xlisp]>)")
  184. @Commandstring(newlisp = "@PossiblyIndexedRef(K <NIL>,
  185.         E <@r[N@c[il]]>, F <@r[N@c[il] (New Implementation of @xlisp]>)")
  186. @Commandstring(slisp = "@PossiblyIndexedRef(K <Spice LISP>,
  187.         E <@r[S@c[pice]] @xlisp>, F <@r[S@c[pice]] @xlisp>)")
  188. @Commandstring(lisp15 = "@PossiblyIndexedRef(K <Lisp 1.5>,
  189.         E <@xlisp @r[1.5]>, F <@xlisp @r[1.5]>)")
  190. @Commandstring(maclisp = "@PossiblyIndexedRef(K <MacLISP>,
  191.         E <@r[M@c[ac]]@xlisp>, F <@r[M@c[ac]]@xlisp>)")
  192. @Commandstring(franzlisp = "@PossiblyIndexedRef(K <Franz LISP>,
  193.         E <@r[F@c[ranz]] @xlisp>, F <@r[F@c[ranz]] @xlisp>)")
  194. @Commandstring(interlisp = "@PossiblyIndexedRef(K <InterLISP>,
  195.         E <@r[I@c[nter]]@xlisp>, F <@r[I@c[nter]]@xlisp>)")
  196. @Commandstring(stdlisp = "@PossiblyIndexedRef(K <Standard LISP>,
  197.         E <@r[S@c[tandard]] @xlisp>, F <@r[S@c[tandard]] @xlisp>)")
  198. @Commandstring(psl = "@PossiblyIndexedRef(K <Portable Standard LISP>,
  199.         E <@r[P@c[ortable] S@c[tandard]] @xlisp>, F <@r[P@c[ortable] S@c[tandard]] @xlisp>)")
  200. @Commandstring(s1lisp = "@PossiblyIndexedRef(K <S-1 Lisp>,
  201.         E <@r[S-1] @xlisp>, F <@r[S-1] @xlisp>)")
  202. @Commandstring(scheme = "@PossiblyIndexedRef(K <scheme>,
  203.         E <@c[scheme]>, F <@c[scheme]>)")
  204. @Commandstring(fortran = "@PossiblyIndexedRef(K <Fortran>,
  205.         E <@c[fortran]>, F <@c[fortran]>)")
  206. @Commandstring(algol = "@PossiblyIndexedRef(K <Algol>,
  207.         E <@c[algol]>, F <@c[algol]>)")
  208. @Commandstring(pascal = "@PossiblyIndexedRef(K <Pascal>,
  209.         E <@c[pascal]>, F <@c[pascal]>)")
  210. @Commandstring(ada = "@PossiblyIndexedRef(K <ADA>,
  211.         E <@c[ada]>, F <@c[ada]>)")
  212. @Commandstring(apl = "@PossiblyIndexedRef(K <APL>,
  213.         E <@c[apl]>, F <@c[apl]>)")
  214. @Commandstring(pl1 = "@PossiblyIndexedRef(K <PL/I>,
  215.         E <@c[pl/i]>, F <@c[pl/i]>)")
  216. @Commandstring(clanguage = "@PossiblyIndexedRef(K <C>,
  217.         E <@c[c]>, F <@c[c] language>)")
  218. @Define(Smallitemize=Itemize, Spread 0, Above 0, Below 0)
  219.  
  220. @Marker(Library, DBOLIO)
  221.  
  222.  
  223. @Modify(Chapter,TitleForm 
  224. {@Begin(Hd1A, Below 0.8 in)@Skip(0.8 in)@*Chapter @Parm(Numbered)@*@Skip(0.3 in)@*@Parm(Title)@End(Hd1A)},
  225.     ContentsForm
  226. {@Begin(Tc1)@Rfstr(@Parm(Page))@Parm(Referenced)@.@ @Parm(Title)@End(Tc1)},
  227.       Numbered [@1],IncrementedBy Use,Referenced [@1],Announced)
  228. @Modify(Appendix,TitleEnv HD1,ContentsEnv tc1,Numbered [@A.],
  229.      ContentsForm "@Tc1(Appendix @Parm(Referenced)@.@ @Rfstr(@Parm(Page))@parm(Title))",
  230.      TitleForm "@Hd1(@=Appendix @Parm(Referenced)@*@=@Parm(Title))",
  231.       IncrementedBy,Referenced [@A],Announced) @Comment{Alias Chapter}
  232. @Define(F, Capitalized)
  233. @Define(A, Initialize "[APL]")
  234. @Define(Sail = R)
  235. @Define(B = R)
  236. @Commandstring(Minussign = "-")
  237. @Commandstring(Tilde = "~")
  238. @Commandstring(Centerdot = ".")
  239. @Commandstring(Underscore = "_")
  240. @Commandstring(Bq = "@;`")
  241. @Form(Complex = "@f[#C(@Parm(R) @Parm(I))]")
  242. @Textform(Altmode = "<altmode>")
  243. @Define(DenseDescription = Description, Spread 0)
  244. @Define(Defenvironment = Text, Need 4, Nofill, Justification Off, Break,
  245.         Leftmargin +12, Indent -12, Above 2, Below 2, Spread 0.5)
  246. @Define(Defbody = Text, Leftmargin -6, Indent 0, Spread 0.5, Break)
  247. @Define(Undefbody = Text, Justification Off, Leftmargin +6, Indent -12,
  248.         Above 0, Below 0, Group, Break)
  249. @Define(Lispenvironment = Verbatim, Group, Leftmargin +4, Above 1, Below 1)
  250. @Commandstring(Nopara = "@Begin(Text, Continue Force)@End(Text)")
  251. @Commandstring(Optional = "@f[&optional]")
  252. @Commandstring(Rest = "@f[&rest]")
  253. @Commandstring(Key = "@f[&key]")
  254. @Commandstring(allowotherkeys = "@f[&allow-other-keys]")
  255. @Commandstring(Aux = "@f[&aux]")
  256. @Commandstring(Body = "@f[&body]")
  257. @Commandstring(Whole = "@f[&whole]")
  258. @Commandstring(Special = "@f[&special]")
  259. @Commandstring(Local = "@f[&local]")
  260. @Textform(Mopt = "@r{[}@Parm(Text)@r{]}")
  261. @Textform(Mgroup = "@r[{]@Parm(Text)@r[}]")
  262. @Textform(Mstar = "@r[{]@Parm(Text)@r[}*]")
  263. @Textform(Mplus = "@r[{]@Parm(Text)@r[}@+[+]]")
  264. @Commandstring(Mor = "@r[|]")
  265. @Commandstring(Lisp = "@Begin(Lispenvironment)@~")
  266. @Commandstring(Endlisp = "@End(Lispenvironment)")
  267. @Commandstring(Lispx = "@Begin(Text, Indent 0, Above 0)For example:@End(Text)@Lisp")
  268. @Commandstring(EQ = "==")
  269. @Commandstring(EV = "->")
  270. @Commandstring(EX = "<=>")
  271. @Commandstring(lbracket = "@f{[}")
  272. @Commandstring(rbracket = "@f{]}")
  273. @Commandstring(lbrace = "@f[{]")
  274. @Commandstring(rbrace = "@f[}]")
  275. @define(subi = i)
  276. @define(subr = r)
  277. @define(superi = i)
  278. @define(supersail = sail)
  279. @define(superg = g)
  280. @commandstring(superminussign = "@minussign@;")
  281. @commandstring(supercenterdot = "@centerdot@;")
  282. @Commandstring(false = "@f[nil]")
  283. @Commandstring(nil = "@f[nil]")
  284. @Commandstring(empty = "@f[()]")
  285. @Commandstring(true = "@f[t]")
  286. @Commandstring(xlisp = "@r[L@c[isp]]")
  287. @Commandstring(clisp = "@r[C@c[ommon]] @xlisp")
  288. @Commandstring(lmlisp = "@PossiblyIndexedRef(K <ZetaLisp>,
  289.         E <@r[Z@c[eta]@xlisp]>, F <@r[Z@c[eta]@xlisp]>)")
  290. @Commandstring(newlisp = "@PossiblyIndexedRef(K <NIL>,
  291.         E <@r[N@c[il]]>, F <@r[N@c[il] (New Implementation of @xlisp)]>)")
  292. @Commandstring(slisp = "@PossiblyIndexedRef(K <Spice LISP>,
  293.         E <@r[S@c[pice]] @xlisp>, F <@r[S@c[pice]] @xlisp>)")
  294. @Commandstring(lisp15 = "@PossiblyIndexedRef(K <Lisp 1.5>,
  295.         E <@xlisp @r[1.5]>, F <@xlisp @r[1.5]>)")
  296. @Commandstring(maclisp = "@PossiblyIndexedRef(K <MacLISP>,
  297.         E <@r[M@c[ac]]@xlisp>, F <@r[M@c[ac]]@xlisp>)")
  298. @Commandstring(franzlisp = "@PossiblyIndexedRef(K <Franz LISP>,
  299.         E <@r[F@c[ranz]] @xlisp>, F <@r[F@c[ranz]] @xlisp>)")
  300. @Commandstring(interlisp = "@PossiblyIndexedRef(K <InterLISP>,
  301.         E <@r[I@c[nter]]@xlisp>, F <@r[I@c[nter]]@xlisp>)")
  302. @Commandstring(stdlisp = "@PossiblyIndexedRef(K <Standard LISP>,
  303.         E <@r[S@c[tandard]] @xlisp>, F <@r[S@c[tandard]] @xlisp>)")
  304. @Commandstring(psl = "@PossiblyIndexedRef(K <Portable Standard LISP>,
  305.         E <@r[P@c[ortable] S@c[tandard]] @xlisp>, F <@r[P@c[ortable] S@c[tandard]] @xlisp>)")
  306. @Commandstring(s1lisp = "@PossiblyIndexedRef(K <S-1 Lisp>,
  307.         E <@r[S-1] @xlisp>, F <@r[S-1] @xlisp>)")
  308. @Commandstring(scheme = "@PossiblyIndexedRef(K <scheme>,
  309.         E <@c[scheme]>, F <@c[scheme]>)")
  310. @Commandstring(fortran = "@PossiblyIndexedRef(K <Fortran>,
  311.         E <@c[fortran]>, F <@c[fortran]>)")
  312. @Commandstring(algol = "@PossiblyIndexedRef(K <Algol>,
  313.         E <@c[algol]>, F <@c[algol]>)")
  314. @Commandstring(pascal = "@PossiblyIndexedRef(K <Pascal>,
  315.         E <@c[pascal]>, F <@c[pascal]>)")
  316. @Commandstring(ada = "@PossiblyIndexedRef(K <ADA>,
  317.         E <@c[ada]>, F <@c[ada]>)")
  318. @Commandstring(apl = "@PossiblyIndexedRef(K <APL>,
  319.         E <@c[apl]>, F <@c[apl]>)")
  320. @Commandstring(pl1 = "@PossiblyIndexedRef(K <PL/I>,
  321.         E <@c[pl/i]>, F <@c[pl/i]>)")
  322. @Commandstring(clanguage = "@PossiblyIndexedRef(K <C>,
  323.         E <@c[c]>, F <@c[c] language>)")
  324. @Define(Smallitemize=Itemize, Spread 0, Above 0, Below 0)
  325.